home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic2 / pro23 / dazzling.bi < prev    next >
Encoding:
Text File  |  1990-11-20  |  628 b   |  16 lines
  1. DECLARE SUB Curtains (Direction%, Arry%())
  2. DECLARE SUB Dazzle (Operation%, Direction%, Arry%())
  3. DECLARE SUB GetMonitorSeg ()
  4. DECLARE SUB Implode (Arry%())
  5. DECLARE SUB ReadBinFile (Arry%(), ScrFile$, LeadingRows%)
  6. DECLARE SUB Shake (HowMany%)
  7. DECLARE SUB StuffMess (Arry%(), Mess$, Row%, Col%, Fg%, Bg%)
  8. DECLARE SUB TickPause (Ticks%)
  9.  
  10. COMMON SHARED ScrnEls AS INTEGER   'The number of elements in your screen.
  11. COMMON SHARED Monitor AS INTEGER   'The segment address for the video map.
  12. COMMON SHARED MaxLine AS INTEGER   'The maximum number of video rows.
  13.  
  14. DEFINT A-Z                         'Default to INTEGERs
  15.  
  16.